The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Guide.dxr/00009.ls

Text File | 1998-11-19 | 4.5 KB | 175 lines

global gqtvrinstance, qtvrpath, guidenumber, gbarsprite, gslidersprite, glist, panlist, gcounter, ossprite, oslist, sectionmarker, codelist, objectpict, lightsprite, piclist, objnamesprite, sideboard, objlist, returnlist, objmarker, setspeed

on prepareMovie
  qtvrenter(xtra("QTVRXtra"))
  set gqtvrinstance to new(xtra("QTVRXtra"))
  set qtvrpath to "..\Route\"
  set lightsprite to 112
  set objectpict to 113
  set objnamesprite to 114
  set sectionmarker to 94
  set objmarker to 95
  set ossprite to 90
  set gbarsprite to 92
  set gslidersprite to 93
  set sideboard to 108
  set setspeed to "1"
  set the visible of sprite objmarker to 0
  initial()
end

on startMovie
  if soundBusy(1) then
    sound stop 1
  end if
  set returnlist to value(field "Guide Location")
  if getProp(returnlist, #flag) = 1 then
    set guidenumber to getProp(returnlist, #guidenumber)
    initial()
    showcast("Guide" & guidenumber)
  else
    set guidenumber to 1
  end if
  showcast("Guide" & guidenumber)
  set the visible of sprite lightsprite to 0
end

on initial
  set glist to []
  set oslist to []
  set panlist to []
  set piclist to []
  repeat with i = 13 to 16
    set the visible of sprite i to 1
  end repeat
  repeat with i = 50 to 52
    set the visible of sprite i to 0
  end repeat
  case guidenumber of
    1:
      set piclist to ["guide1-001", "guide1-002", "guide1-003"]
    2:
      set piclist to ["guide2-001", "guide2-002"]
    3:
      set piclist to ["guide3-001", "guide3-002"]
  end case
  repeat with showpic in piclist
    set order to getOne(piclist, showpic)
    puppetSprite(50 + order - 1, 1)
    set the memberNum of sprite (50 + order - 1) to the number of member showpic
    updateStage()
  end repeat
  puppetSprite(sectionmarker, 1)
  set the floatPrecision to 3
  set gcounter to 1
end

on recttostr myrect
  set mystring to string(myrect)
  delete char 1 to 5 of mystring
  delete char the length of mystring of mystring
  return mystring
end

on stopMovie
  put "[#GuideNumber:" && guidenumber & ", #gCounter:" && gcounter - 1 & ", #Flag: 1]" into field "Guide Location"
  closemovie()
  set gqtvrinstance to 0
  qtvrexit(xtra("QTVRXtra"))
  if the movieRate of sprite ossprite then
    set the movieRate of sprite ossprite to 0
  end if
  gobackpath()
end

on closemovie
  if isqtvrmovie(gqtvrinstance) then
    qtvrclose(gqtvrinstance)
  end if
end

on openqtvr visibleonoff
  set qtvrRect to recttostr(the rect of sprite 120)
  set qtvrFile to the pathName & qtvrpath & "\Guide" & guidenumber & ".mov"
  qtvropen(gqtvrinstance, qtvrFile, qtvrRect, visibleonoff)
  if qtvrgetqtvrtype(gqtvrinstance) = "QTVRPanorama" then
    InitPanoCallbacks()
  end if
end

on createcodelist whichguide
  set filelist to "CodeLIst" && whichguide
  set linecounter to the number of lines in field filelist
  set codelist to [:]
  set objlist to []
  repeat with i = 1 to linecounter
    setaProp(codelist, item 1 of line i of field filelist, item 2 of line i of field filelist)
    append(objlist, item 2 of line i of field filelist)
  end repeat
end

on selectmenu
  if the mouseCast > 0 then
    case the name of the mouseMember of
      "MainMenu":
        go("MainMenu")
      "ProgressBar":
        go(string(guidenumber))
    end case
    if not rollOver(120) then
      set the visible of sprite lightsprite to 0
      updateStage()
      puppetSprite(objectpict, 0)
      puppetSprite(objnamesprite, 0)
      set the visible of sprite objmarker to 0
      if rollOver(107) then
        puppetSprite(nodepict, 0)
        set the visible of sprite objmarker to 1
        set the movieRate of sprite ossprite to 0
        set the visible of sprite ossprite to 0
        updateStage()
        go(the frame + 1)
      end if
    end if
  end if
end

on setos
  puppetSprite(ossprite, 1)
  set the memberNum of sprite ossprite to the number of member ("OS" & guidenumber)
  updateStage()
  set the movieRate of sprite ossprite to 1
end

on showcast castlibname
  set the fileName of castLib "Guide" to castlibname
end

on guideselection number
  set the movieRate of sprite ossprite to 0
  set the movieTime of sprite ossprite to 0
  closemovie()
  updateStage()
  set guidenumber to number
  initial()
  showcast("Guide" & guidenumber)
  go("Start")
end

on gotoexit
  set the movieRate of sprite ossprite to 0
  go("Exit")
end

on notexit
  global returnframe
  set the movieRate of sprite ossprite to 1
  updateStage()
  go(returnframe)
end

on toobjectmovie newfile
  put newfile into field "Current Object"
  go(1, "Object")
end